home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / adatutor / simlatrs / auto_tes.a next >
Text File  |  1996-01-30  |  2KB  |  121 lines
  1. with Automobile_Interface; use Automobile_Interface;
  2. with Console;
  3. procedure Auto_Test is
  4.  
  5.   procedure Show_Speed is
  6.   begin
  7.     Console.Put ("  Current Speed: ");
  8.     Console.Put (FLOAT(Sensed_Speed), 3, 2);
  9.     Console.Put (" MPH");
  10.     Console.New_Line;
  11.   end Show_Speed;
  12.  
  13. begin
  14.   Console.Put_Line ("Starting Engine");
  15.   Turn_On_Engine;
  16.  
  17.   Update; Show_Speed; Update; Show_Speed;
  18.  
  19.   Console.Put_Line ("Accelerating");
  20.   Depress_Accelerator_Pedal;
  21.  
  22.   for I in 1..20 loop
  23.     Update;
  24.     Show_Speed;
  25.   end loop;
  26.  
  27.   Console.Put_Line ("Holding Speed");
  28.   Hold_Accelerator_Pedal;
  29.  
  30.   for I in 1..5 loop
  31.     Update;
  32.     Show_Speed;
  33.   end loop;
  34.  
  35.   Console.Put_Line ("Accelerating");
  36.   Depress_Accelerator_Pedal;
  37.  
  38.   for I in 1..4 loop
  39.     Update;
  40.     Show_Speed;
  41.   end loop;
  42.  
  43.   Console.Put_Line ("Holding Speed");
  44.   Hold_Accelerator_Pedal;
  45.  
  46.   for I in 1..5 loop
  47.     Update;
  48.     Show_Speed;
  49.   end loop;
  50.  
  51.   Console.Put_Line ("Releasing Accelerator Pedal");
  52.   Release_Accelerator_Pedal;
  53.  
  54.   for I in 1..5 loop
  55.     Update;
  56.     Show_Speed;
  57.   end loop;
  58.  
  59.   Console.Put_Line ("Accelerating");
  60.   Depress_Accelerator_Pedal;
  61.  
  62.   for I in 1..10 loop
  63.     Update;
  64.     Show_Speed;
  65.   end loop;
  66.  
  67.   Console.Put_Line ("Depressing Brake Pedal");
  68.   Depress_Brake_Pedal;
  69.  
  70.   for I in 1..4 loop
  71.     Update;
  72.     Show_Speed;
  73.   end loop;
  74.  
  75.   Console.Put_Line ("Releasing Brake Pedal");
  76.   Release_Brake_Pedal;
  77.  
  78.   for I in 1..2 loop
  79.     Update;
  80.     Show_Speed;
  81.   end loop;
  82.  
  83.   Console.Put_Line ("Accelerating");
  84.   Depress_Accelerator_Pedal;
  85.  
  86.   for I in 1..4 loop
  87.     Update;
  88.     Show_Speed;
  89.   end loop;
  90.  
  91.   Console.Put_Line ("Holding Speed");
  92.   Hold_Accelerator_Pedal;
  93.  
  94.   for I in 1..5 loop
  95.     Update;
  96.     Show_Speed;
  97.   end loop;
  98.  
  99.   Console.Put_Line ("Coasting");
  100.   Release_Accelerator_Pedal;
  101.  
  102.   for I in 1..10 loop
  103.     Update;
  104.     Show_Speed;
  105.   end loop;
  106.  
  107.   Console.Put_Line ("Depressing Brake Pedal");
  108.   Depress_Brake_Pedal;
  109.  
  110.   for I in 1..20 loop
  111.     Update;
  112.     Show_Speed;
  113.   end loop;
  114.  
  115.   Console.Put_Line ("Stopping Engine");
  116.   Turn_Off_Engine;
  117.   Update;
  118.   Show_Speed;
  119.  
  120. end Auto_Test;
  121.